3 REM DAS LEBEN DES BRAIN PART IV
5 REM PUBLIC DOMAIN SOFT
6 REM (W) BY PETER DIEHM 8.2.92-14.2.92
8 POKE 650,255:POKE657,128:PRINTCHR$(14)""
9 POKE 53280,0:POKE 53281,0:PRINT"[147]":GOTO1750:GOTO 1000
10 REM UNTERPROGRAMM TASTE
11 PRINTSPC(30)"[158]-[212]ASTE-[146]"
12 GET F$:IFF$="" THEN 12
13 RETURN
15 REM PETER DIEHM
16 REM WALDSTR.58
17 REM 6149 RIMBACH 1
30 IF F=1 THEN 1900
31 PRINTSPC(1)"[196]U HAST KEINE [198]ACKEL !":GOTO 100
50 REM INVENTAR
51 PRINTSPC(1)" [154] [201]NVENTAR: [146]
52 [139] F[178]1 [167][153][166]1)"EINE ASCACKEL.
54 IF B=1 THENPRINTSPC(1)"EINE [193]XT.
55 [139] C[178]1 [167][153][166]1)"EINEN ASCISCH.
56 IF O=1 THENPRINTSPC(1)"EIN [207]ELLAEMPCHEN.
58 [139] D[178]1 [167][153][166]1)"EINEN STR$REIZACK.
60 IF Z=1 THENPRINTSPC(1)"EINE [193]NGEL.
62 [139] L[178]1 [167][153][166]1)"EINE (null)ETROPA (null)AFFEEMASCHINE.
63 IF M=1 THENPRINTSPC(1)"EIN [211]EIL.
64 [139] LC[178]1 [167][153][166]1)"EINEN (null)CHLUESSEL."
67 [137] 100
80 [143] KOMMANDOS
81 [153][166]0)" NIMM,NEHME,LIES,LESE,ISS,ESSE,
82 PRINTSPC(0)" TRINKE,INVENTAR,INVENTORY,KLOPFE,
83 [153][166]0)" KOMMANDOS,BLICKE,BLICK,GEBE,GIB,LOAD,
84 PRINTSPC(0)" LADE,SAVE,SPEICHERE,SCHLAF,SCHLAFE,
86 [153][166]0)" BENUTZ,BENUTZE,FRAGE,GRABE,SAGE,SAG,
87 PRINTSPC(0)" SCHLAGE,SCHLAG,DRUECKE,DRUECK,N,S,W,
88 [153][166]0)" O,R,H,SICHER,SICHERN.
100 PRINTSPC(1)"[204]ETZTE [197]INGABE:"I$""
101 INPUT" [158] -=> [146] ";I$
102 IF LEN(I$)=2 THEN 138
103 IF I$="SICHERN" OR I$="SICHER" THEN 1500
104 IF I$="NORDEN" THEN 820
105 IF I$="SUEDEN" THEN 860
106 IF I$="WESTEN" THEN 900
107 IF I$="OSTEN" THEN 940
108 IF I$="HOCH" OR I$="RAUF" THEN 195
109 IF I$="RUNTER" THEN 185
110 IF I$="KLOPFE" OR I$="KLOPF" THEN 800
111 IF I$="KOMMANDOS" OR I$="HILFE" THEN 80
112 IF I$="INVENTAR" OR I$="INVENTORY" THEN 50
113 IF I$="SCHLAF" OR I$="SCHLAFE" THEN 700
114 IF I$="LOAD" OR I$="LADE" THEN 600
115 IF I$="SAVE" OR I$="SPEICHERE" THEN 650
116 IF I$="GRAB" OR I$="GRABE" THEN 1100
117 IF LEN(I$)>1 THEN 150
118 IF LEN(I$)=1 THEN 130
120 PRINTSPC(1)"[197]RST [197]INGEBEN DANN [210]ETURN !
122 [137] 100
130 [139] I$[178]"N" [167] 820
131 [139] I$[178]"S" [167] 860
132 [139] I$[178]"W" [167] 900
134 [139] I$[178]"O" [167] 940
138 [139] I$[178]"R" [167] 185
139 [139] I$[178]"H" [167] 195
145 [153][166]1)" STR$IESE ATNBKUERZUNG VERSTEHE ICH NICHT !"
146 [137]100
150 [141] 500
152 [143] VERTEILUNG
153 [139] V$[178]"NIMM" [176] V$[178]"NEHME" [167] 300
154 [139] V$[178]"LIES" [176] V$[178]"LESE" [167] 370
155 [139] V$[178]"SCHLAG" [176] V$[178]"SCHLAGE" [167] 400
156 [139] V$[178]"INVENTAR" [176] V$[178]"INVENTORY" [167] 50
157 [139] V$[178]"HILFE" [176] V$[178]"KOMMANDOS" [167] 80
158 [139] V$[178]"BLICKE" [176] V$[178]"BLICK" [167] 1000
160 [139] V$[178]"GEBE" [176] V$[178]"GIB" [167] 450
162 [139] V$[178]"LOAD" [176] V$[178]"LADE" [167] 600
163 [139] V$[178]"SAVE" [176] V$[178]"SPEICHERE" [167] 650
165 [139] V$[178]"SCHLAF" [176]  V$[178]"SCHLAFE" [167] 700
166 [139] V$[178]"BENUTZ" [176] V$[178]"BENUTZE" [167] 720
169 [139] V$[178]"KLOPFE" [176] V$[178]"KLOPF" [167] 800
170 [139] V$[178]"TRINK" [176] V$[178]"TRINKE" [167] 1130
172 [139] V$[178]"FRAGE" [176] V$[178]"FRAG" [167] 220
173 [139] V$[178]"SAGE" [176] V$[178]"SAG" [167] 250
175 [139] V$[178]"GRAB" [176] V$[178]"GRABE" [167] 1100
178 [139] V$[178]"ISS" [176] V$[178]"ESSE" [167] 1130
180 [153][166]1)"STR$AS (null)ERB KENNE ICH NICHT !"
181 [137]100
185 [143] RUNTER
187 [139] A[178]6 [175] LA[178]1 [167]A[178]7:[137] 210
188 [139] A[178]24 [167] A[178]23:[137] 210
193 [153][166]1)"LEFT$IER KANNST DU NICHT RUNTER !":[137] 100
195 [143] HOCH
197 [139] A[178]7 [167] A[178]6:[137] 211
198 [139] A[178]23 [167] A[178]24:[137] 211
203 [153][166]1)"LEFT$IER KANNST DU NICHT HOCH !":[137] 100
210 [153][166]1)"STR$U GEHST NACH UNTEN.":[137] 1300
211 [153][166]1)"STR$U GEHST NACH OBEN.":[137] 1300
220 [143] FRAG
221 [139] A[178]14 [167] 3000
222 [139] A[178]18 [175] LC[178]0 [167] 3010
240 [153][166]1)"STR$U HAST VIELLEICHT ASCRAGEN.":[137] 100
250 [143] SAGE
290 [153][166]1)"(null)EDEN IST SILBER, SCHWEIGEN IST CHR$OLD !":[137] 100
300 [143] NIMM
302 [139] M[178]0 [175] A[178]5 [167]M[178]1:[137] 360
355 [153][166]1)"STR$IESEN CHR$EGENSTAND SEHE ICH NICHT !":[137]100
360 [153][166]1)"STR$U NIMMST DAS (null)EIL AN DICH !":[141]10:[137]1000
370 [143] LIES
372 [139] A[178]8 [167]1220
390 [153][166]1)"STR$AS KANNST DU NICHT LESEN !":[137] 100
400 [143] SCHLAG
402 [139] A[178]14 [167] 1400
404 [139] A[178]18 [175] LC[178]0 [167] 1800
440 [153][166]1)"STR$IES VERSTOESST GEGEN DIE CHR$ENFER
442 PRINTSPC(1)"[203]ONFENSSION !":GOTO 100
450 REM GIB
451 IF A=14 THEN 1410
453 IF A=18 THEN 3100
480 PRINTSPC(1)"[194]EHALT DEIN [218]EUG LIEBER !":GOTO 100
499 END
500 FOR T=1 TO LEN(I$)
510 IF MID$(I$,T,1)=" " THEN 530
520 NEXT T:O$="":V$="":RETURN
530 V$=LEFT$(I$,T-1)
540 O$=RIGHT$(I$,LEN(I$)-T)
550 RETURN
600 REM LOAD
601 IF PD=3 THENPRINTSPC(1)"[194]RAIN [208]ART [201][214] [153] [204]OAD [146]...
602 [139] PD[178]4 [167][153][166]1)"PEEKRAIN (null)ART (null)  (null)OAD WAIT...
603 INPUT"  [198]ILE [146] [206]AME ";C$
605 OPEN1,8,4,"B3"+C$+",S,R"
607 INPUT#1,A,B,C,D,E,F,O,L,M,W,Z,N,S,LA,LB,LC,LD,LE,LF
620 CLOSE1:GOSUB10
621 GOTO1000
650 REM SAVE
651 IFPD=3THENPRINTSPC(1)"[194]RAIN [208]ART [201][214] [156] [211]AVE [146]":R$=CHR$(13)
652 IFPD=4THENPRINTSPC(1)"[194]RAIN [208]ART [214] [154] [211]AVE [146]":R$=CHR$(13)
653 INPUT"  [198]ILE [146] [206]AME ";C$
655 OPEN2,8,15,"S:B1"+C$+"":CLOSE2
656 OPEN1,8,4,"B3"+C$+",S,W"
657 PRINT#1,A;R$;B;R$;C;R$;D;R$;E;R$;F;R$;O;R$;L;R$;M;R$;W;R$;Z;R$;N;R$;S
658 PRINT#1,LA;R$;LB;R$;LC;R$;LD;R$;LE;R$;LF
670 CLOSE1:GOSUB10
671 GOTO1000
700 REM SCHLAF
718 PRINTSPC(1)"[196]U SCHLAEFST EINE [210]UNDE...":GOTO 100
720 REM BENUTZE
721 IF A=22 AND LD=1 THEN A=23:GOTO 1000
722 IF A=9 AND M=1 THEN 1240
723 IF A=22 AND O$="SCHLUESSEL" THEN 3200
724 IF A=24 AND O$="FACKEL" THEN 30
725 IF O$="ANGEL" THEN 1850
780 PRINTSPC(1)"[196]AS KANNST DU NICHT BENUTZEN.":GOTO 100
800 REM KLOPFE
818 PRINTSPC(1)"[196]U KLOPFST AN DEINEN [203]OPF !":GOTO 100
820 REM NORDEN
821 IF A=1 THENA=2:GOTO 856
822 IF A=6 THENA=1:GOTO 856
823 IF A=4 THENA=3:GOTO 856
825 IF A=8 THENA=9:GOTO 856
826 IF A=15 THENA=11:GOTO 856
827 IF A=11 THENA=12:GOTO 856
829 IF A=14 THENA=13:GOTO 856
832 IF A=17 THENA=16:GOTO 856
834 IF A=20 THENA=18:GOTO 856
836 IF A=21 THENA=19:GOTO 856
837 IF A=22 THENA=20:GOTO 856
855 PRINTSPC(1)"[196]ORTHIN FUEHRT [158] KEIN [146] [215]EG.":GOTO100
856 PRINTSPC(1)"[196]U LAUEFST NACH [206]ORDEN...":GOTO 1300
857 PRINTSPC(1)"[196]U GEHST [210]ICHTUNG [211]UEDEN...":GOTO 1300
858 PRINTSPC(1)"[196]U GEHST NACH [207]STEN.":GOTO 1300
859 PRINTSPC(1)"[196]U MARSCHIERST NACH [207]STEN...":GOTO 1300
860 REM SUEDEN
861 IF A=2 THENA=1:GOTO 857
862 IF A=1 THENA=6:GOTO 857
863 IF A=3 THENA=4:GOTO 857
865 IF A=9 THENA=8:GOTO 857
866 IF A=11 THENA=15:GOTO 857
867 IF A=12 THENA=11:GOTO 857
869 IF A=13 THENA=14:GOTO 857
872 IF A=16 THENA=17:GOTO 857
874 IF A=18 THENA=20:GOTO 857
876 IF A=19 THENA=21:GOTO 857
877 IF A=20 THENA=22:GOTO 857
880 GOTO 855
900 REM WESTEN
901 IF A=4 THENA=1:GOTO 858
903 IF A=3 THENA=2:GOTO 858
904 IF A=5 THENA=4:GOTO 858
906 IF A=8 THENA=7:GOTO 858
908 IF A=11 THENA=10:GOTO 858
910 IF A=13 THENA=11:GOTO 858
911 IF A=14 THENA=15:GOTO 858
913 IF A=18 THENA=16:GOTO 858
914 IF A=19 THENA=18:GOTO 858
916 IF A=20 THENA=17:GOTO 858
917 IF A=21 THENA=20:GOTO 858
918 IF A=23 THENA=22:GOTO 858
939 GOTO 855
940 REM OSTEN
941 IF A=1 THENA=4:GOTO 859
943 IF A=2 THENA=3:GOTO 859
944 IF A=4 THENA=5:GOTO 859
946 IF A=7 THENA=8:GOTO 859
948 IF A=10 THENA=11:GOTO 859
950 IF A=11 THENA=13:GOTO 859
951 IF A=15 THENA=14:GOTO 859
953 IF A=16 THENA=18:GOTO 859
954 IF A=18 THENA=19:GOTO 859
956 IF A=17 THENA=20:GOTO 859
957 IF A=20 THENA=21:GOTO 859
958 IF A=22 AND LD=1 THEN A=23:GOTO 859
999 GOTO 855
1000 REM RAUEME
1001 PRINT"[147]"
1002 PRINTSPC(1)"       [196]AS [154] [204]EBEN [146] DES [194]RAIN !
1003 [139] PD[178]4[167][153][166]1)" (null)ART RIGHT$(null) PEEKRAIN AUF (null)RETA.
1004 IF PD=5THENPRINTSPC(1)" [208]ART [214] [194]RAIN AUF DEM [207]LYMP !
1005 [129]I[178]1[164]20:[153]"--";:[130]
1010 [139] A[178]1 [167] 2000:[143] KRETA
1011 [139] A[178]2 [167] 2040
1012 [139] A[178]3 [167] 2060
1014 [139] A[178]4 [167] 2080
1017 [139] A[178]5 [167] 2100
1019 [139] A[178]6 [167] 2120
1023 [139] A[178]7 [167] 2140
1025 [139] A[178]8 [167] 2160
1026 [139] A[178]9 [167] 2180
1027 [139] A[178]10 [167] 2200
1028 [139] A[178]11 [167] 2220
1030 [139] A[178]12 [167] 2240
1032 [139] A[178]13 [167] 2260
1033 [139] A[178]14 [167] 2280
1034 [139] A[178]15 [167] 2300
1035 [143] OLYMP
1036 [139] A[178]16 [167] 2320
1038 [139] A[178]17 [167] 2340
1039 [139] A[178]18 [167] 2360
1040 [139] A[178]19 [167] 2380
1041 [139] A[178]20 [167] 2400
1042 [139] A[178]21 [167] 2420
1044 [139] A[178]22 [167] 2440
1046 [139] A[178]23 [167] 2460
1099 A[178]1:[137] 1000
1100 [143] GRABE
1102 [139] A[178]6 [167] 1200
1128 [153][166]1)"STR$U GRAEBST EINWENIG HERUM.":[137] 100
1130 [143] ESSE
1159 [153][166]1)"(null)ND HOCH DAS CHR$LAS !":[137] 100
1200 [153][166]1)"STR$U GRAEBST EINWENIG UND SIEHE DA !
1202 PRINTSPC(1)"[197]IN [204]OCH KOMMT ZUM [214]ORSCHEIN.":LA=1:GOSUB10:GOTO 1000
1220 PRINTSPC(1)"[193]UF DEM [211]CHILD STEHT:
1222 [153][166]1)"SYS' LEFT$ABEN SIE EIN (null)ROBLEM ? (null)UCHEN (null)IE
1224 PRINTSPC(1)"EINEN [210]AT ODER EINEN [210]EIFEN ? [215]OLLEN
1226 [153][166]1)"SIE WISSEN WIE DIE VALINTRACHT AM
1227 PRINTSPC(1)"[211]AMSTAG SPIELT ? [207]DER GAR EINE [211]CHLA=
1228 [153][166]1)"CHT GEWINNEN ?
1230 PRINTSPC(1)"[206]A DANN BESUCHEN SIE DAS [207]RAKEL VON
1232 [153][166]1)"(null)TING !'"
1234 [153][166]1)"(null).(null). SYS'ATNUCH (null)ELEPORTATION !'"
1240 [139] O$[178]"SEIL" [167] 1242
1241 [137] 780
1242 [153][166]1)"STR$U SEILST DICH MIT DEM SEILIGEN (null)EIL
1244 PRINTSPC(1)"AB. [203]URZ VOR DEM [194]ODEN REISST DIESE !
1245 [153][166]1)"VALS PASSIERT DIR ALLERDINGS NICHTS,DOCH
1246 PRINTSPC(1)"DU KANNST NUN NICHT MEHR ZURUECK.":A=10:GOSUB10
1247 GOTO1000
1300 FORI=1TO10:SI=54272
1302 FORII=0TO24:POKE SI+II,0:NEXT
1304 POKE SI+1,15:POKE SI+5,9:POKE 2+15,30
1305 POKE SI+24,15:POKE SI+4,129:POKE SI+4,65:POKE SI+4,129
1306 NEXTI:GOTO 1000
1400 PRINTSPC(1)"[196]U BIST EINER ! [215]ILLST EINE ALTE [198]RAU
1402 [153][166]1)"SCHLAGEN !":[137] 100
1410 [139] O$[178]"KAFFEEMASCHINE" [175] L[178]1 [167] 1415
1411 [139] O$[178]"FISCH" [175] C[178]1 [167] 1425
1413 [153][166]1)"(null)REIB DEIN (null)PIEL NICHT ZUWEIT MIT DER
1414 PRINTSPC(1)"[193]LTEN !":GOTO 100
1415 PRINTSPC(1)"[196]U GIBST IHR DIE [203]AFFEEMASCHINE !
1416 [153][166]1)"(null)IE FREUT SICH SEHR DARUEBER UND SAGT:
1417 IF C=5 THEN 1430
1418 PRINTSPC(1)"[158]'[197]CHT COOL [205]AKER ! [211]O 'N [212]EIL HABE
1419 [153][166]1)"ICH MIR SCHON LANGE GEWUESCHT, EY !
1420 PRINTSPC(1)"[197]Y [205]AKER EY JETZT WERDE ICH DICH AUCH
1422 [153][166]1)"GERNE TELEPORTIEREN ! PEEKRINGE MIR DA=
1423 PRINTSPC(1)"FUER EINEN [212]HUNFISCH !'":L=5
1424 GOTO 100
1425 IF L=5 THEN 1430
1426 PRINTSPC(1)"[196]U GIBST DER [193]LTEN DEN [198]ISCH ! [211]IE SAGT
1427 [153][166]1)"SYS'VALY (null)AKER EY SO EIN (null)AESSCHEN (null)AFFEE
1428 PRINTSPC(1)"WAER JETZT NICHT SCHLECHT !'":C=5:GOTO100
1430 PRINTSPC(1)"[158]'[207][203] [205]AKER SCHNALL DICH AN JETZT GEHTS
1432 [153][166]1)"LOS ! (null)O SOLLS DENN HINGEHEN ?'
1435 PRINTSPC(1)"[154]'[206]ACH [212]OBAGO !'
1436 [153][166]1)"SYS'(null)ENN ICH NICHT ! RIGHT$CH KENN NUR (null)OBASCO
1438 PRINTSPC(1)"[193]LTER ! [215]IE WAERS MIT DEM [207]LYMP ICH
1440 [153][166]1)"HAETTE DA NOCH EIN (null)LAETZCHEN FREI,
1442 PRINTSPC(1)"ALLERDINGS NUR [196]RITTER [203]LASSE ?'
1444 [153][166]1)"CONT'RIGHT$ST GUT ! RIGHT$N DER (null)CHULE WAR ICH
1445 PRINTSPC(1)"AUCH DREI [202]AHRE IN DER DRITTEN !'
1446 [141]10
1450 [153]"LOAD"
1452 [153][166]1)"(null)IE MURMELT ALSO EINPAAR ASCORMELN UND
1455 PRINTSPC(1)"SCHON LIEGST DU BEWUSSTLOS NEBEN IHR
1456 [153][166]1)"UND EINIGE (null)INUTEN SPAETER WACHST DU
1457 PRINTSPC(1)"IN EINEM [204]ABYRINTH DES [207]LYMP AUF."
1458 A=16:PD=5:GOSUB 1710
1459 GOTO 1000
1500 REM SICHERN
1502 PRINTSPC(1)"[196]ER [211]PIELSTAND WIRD NUN GESICHERT UND
1504 [153][166]1)"FUER DIE VALWIGKEIT, BIS ZUM NAECHSTEN
1505 PRINTSPC(1)"[211]PIEL FEST GEHALTEN !":GOSUB1710
1510 GOSUB10:GOTO 1000
1699 END
1700 OPEN1,8,4,"BRAIN SCORE,S,R"
1702 INPUT#1,F,B,C,O,E,D,N,PD,K,S,L,M,W,Z,A,LA,LB,LC,LD,LE,LF,DA,DB,DC,DD,DM
1703 INPUT#1,GA,GB,GC,CJ,GE
1705 CLOSE1:RETURN
1710 REM SCORE SAVE
1711 PD=2:R$=CHR$(13)
1712 OPEN2,8,15,"S:BRAIN SCORE":CLOSE2
1713 OPEN1,8,4,"BRAIN SCORE,S,W"
1714 PRINT#1,F;R$;B;R$;C;R$;O;R$;E;R$;D;R$;N;R$;PD;R$;K;R$;S;R$;L;R$;M
1715 PRINT#1,W;R$;Z;R$;A;R$;LA;R$;LB;R$;LC;R$;LD;R$;LE;R$;LF;R$;DA;R$;DB
1717 PRINT#1,DC;R$;DD;R$;DM;R$;GA;R$;GB;R$;GC;R$;CJ;R$;GE
1718 CLOSE1:RETURN
1750 PRINT"[147]":GOSUB1700
1752 IF PD<4 THENPRINTSPC(1)"[196]U WILLST WOHL BETRUEGEN !":GOTO 1780
1755 IF A<1 OR A>15 AND PD=4 THEN A=1:GOTO1000
1756 IF A<16 AND PD=5 THEN A=16:GOTO1000
1770 GOTO 1000
1780 PRINTSPC(1)"[196]U MUSST ERST DEN ERSTEN UND DIE AN=
1782 [153][166]1)"DEREN (null)EILE VOR DIESEM LOESEN ! RIGHT$ST
1783 PRINTSPC(1)"DOCH LOGISCH.":GOSUB10
1785 LOAD"BRAIN",8,1:RUN
1800 REM MANN
1802 PRINTSPC(1)"[196]U NIMMST EINEN [211]TEIN UM AUF [206]EPTUN
1804 [153][166]1)"EIN ZUSCHLAGEN !
1805 PRINTSPC(1)"[196]OCH [158] [211]TOP [146] !
1806 [153][166]1)"VALR IST IMMER HIN EIN CHR$OTT UND DIE SIND
1807 PRINTSPC(1)"UNSTERBLICH ! [213]ND WER SOLL DANN DAS
1808 [153][166]1)"ATNDVENTURE LOESEN ? VALTWA DEINE (null)EBENS=
1810 PRINTSPC(1)"VERSICHERUNG ?":GOTO 100
1850 PRINTSPC(1)"[208]ETRI [200]EIL ! ":GOTO 100
1900 REM SIEG
1902 PRINTSPC(1)"[196]U HAELST DIE [198]ACKEL VORSICHTIG AN
1904 [153][166]1)"DIE ASCLAMME !"
1906 [153][166]1)"(null)ND SIEHE DA SIE FAENGT ASCEUER...
1908 PRINTSPC(1)"UND IM SELBEN [205]OMENT STEHT DU IN
1910 [153][166]1)"ATNLBERTVILLE UND UEBERGIBST DIE ASCLAMME
1911 PRINTSPC(1)"AN [205].[208]LATINI !":GOSUB10
1915 LOAD"BRAIN P.VI LOAD",8,1:RUN
1999 END
2000 REM A=1
2002 PRINTSPC(1)"[196]U STEHST IN EINER [194]UCHT DER [201]NSEL
2003 [153][166]1)"(null)RETA,DAS (null)CHIFF MIT DEM DU HIERHER
2005 PRINTSPC(1)"GESEGLT BIST, LIEGT LECK AM [211]TRAND.
2006 [153][166]1)"RIGHT$M (null)ORDEN UND (null)STEN GEHT ES IN EINEN
2008 PRINTSPC(1)"[207]LIVENHAIN.
2010 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null).
2012 GOTO 100
2040 REM A=2
2042 PRINTSPC(1)"[196]U LAUEFST DURCH EINEN [207]LIVENHAIN,
2043 [153][166]1)"DIESE TRAGEN GERADE ASCRUECHTE.
2044 PRINTSPC(1)"[201]N DEN [193]ESTEN SITZTEN [214]OEGEL, WELCHE
2045 [153][166]1)"SICH DIE (null)EILE SCHMECKEN LASSEN.
2047 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN,[207]STEN.":GOTO 100
2060 REM A=3
2061 PRINTSPC(1)"[196]U FRAGST WOZU DIE [204]EUTE IN DIESEN
2063 [153][166]1)"(null)EITALTER SOVIEL (null)LIVEN BRAUCHEN ? STR$IE
2065 PRINTSPC(1)"[198]RITOESE SOWIE DIE [208]OMMES SIND JA
2067 [153][166]1)"NOCH GARNICHT ERFUNDEN, WOZU DANN NUR
2068 PRINTSPC(1)"DAS GANZE [207]EL ?"
2070 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN,[215]ESTEN.
2072 [137] 100
2080 [143] A=4
2081 [153][166]1)"RIGHT$M (null)ESTEN IST EINE PEEKUCHT, IM (null)ORDEN
2083 PRINTSPC(1)"EIN [207]LIVENHAIN UND IN OSTLCHE [210]ICHTUNG
2084 [153][166]1)"FUEHRT EIN KLEINER (null)FAD. STR$IE ATNUSSEN=
2086 PRINTSPC(1)"TEMPERATUR IST 25 [199]RAD IM [211]CHATTEN.
2088 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null).":[137]100
2100 [143] A=5
2102 [153][166]1)"STR$IES IST EINE (null)LIVEN (null)ACKGASSE, DENN
2104 PRINTSPC(1)"VOR DIR STEHT EIN [210]IESEN [194]ERG MIT
2105 [153][166]1)"(null)AECKEN VOLLER (null)LIVEN. (null)ND DU DACHTEST
2106 PRINTSPC(1)"BIS JETZT IMMER ES GAEBE NUR EINEN
2108 [153][166]1)"PEEKUTTERBERG. (null)AS DIE VALCHR$ WOHL DAZU SAGT?
2109 IF M=0 THENPRINTSPC(1)"[196]U [158] SIEHST: [146] EIN [211]EIL."
2110 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [215]ESTEN."
2112 GOTO 100
2120 REM A=6
2121 IF LA=1 THEN 2130
2122 PRINTSPC(1)"[196]U LAUEFST DEN WUNDERBAREN [211]ANDSTRAND
2123 [153][166]1)"ENTLANG. STR$IESER NIMMT EIN VALNDE AN
2125 PRINTSPC(1)"EINER [198]ELSWAND, AM [194]ODEN IST DER [211]AND
2126 [153][166]1)"LEICHT AUF GESCHUETTET."
2127 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: (null)ORDEN.":[137] 100
2130 [143] A=6/B
2131 [153][166]1)"(null)OR DIR TUT SICH EIN KLEINES (null)OCH IM
2132 PRINTSPC(1)"[211]AND AUF, DU KOENNTEST HIER LOCKER
2133 [153][166]1)"RUNTER STEIGEN.
2134 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [206]ORDEN,RUNTER.":GOTO 100
2140 REM A=7
2142 PRINTSPC(1)"[196]U STEHST UNTER DEM [211]ANDSTRAND IN EINER
2143 [153][166]1)"LEFT$OEHLE, IM (null)STEN SIEHST DU DEN ATNUSGANG
2145 PRINTSPC(1)"OBERHALB VON DIR IST EIN [204]OCH, DURCH
2146 [153][166]1)"WELCHES DU ZURUECK NACH OBEN KANNST.
2148 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [200]OCH,[207]STEN.
2150 [137] 100
2160 [143] A=8
2161 [153][166]1)"STR$U STEHST VOR EINEM LEFT$OEHLENEINGANG,
2164 PRINTSPC(1)"NACH [206]ORDEN FUEHRT EIN SCHMALER RASCH
2165 [153][166]1)"ANSTEIGENDER (null)EG AUF EINE (null)LIPPE.
2167 PRINTSPC(1)"[214]OR DIR STEHT EIN [211]CHILD."
2169 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [206]ORDEN,[215]ESTEN.":GOTO 100
2180 REM A=9
2182 PRINTSPC(1)"[196]U KOMMST DIR WIE [212]ARZAN VOR, DER MIT
2184 [153][166]1)"SEINEN CHR$ORILLAS DIE AHNUNGSLOSEN VALX=
2186 PRINTSPC(1)"PEDITIONSMITGLIEDER ANGREIFT !
2188 [153][166]1)"STR$OCH LASSEN WIR DIE TRAUEMEREIEN, AM
2190 PRINTSPC(1)"[193]NFANG DER [203]LIPPE WEIT UNTEN SIEHST DU
2192 [153][166]1)"EINEN (null)EG."
2193 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: (null)UEDEN.":[137] 100
2200 [143] A=10
2202 [153][166]1)"STR$U STEHST AM ASCUSS DER (null)LIPPE, EIN (null)EG
2204 PRINTSPC(1)"FUEHRT NACH [207]STEN, ZU EINEM [212]EMPEL
2205 [153][166]1)"HINAUF !
2206 PRINTSPC(1)"[196]ORT SCHEINT WOHL DAS [207]RAKEL ZU WOHNEN
2208 [153][166]1)"DA DU HOFFST DAS ES EINE HUEPSCHE ASCRAU
2210 PRINTSPC(1)"IST KAEMMST DU DIR DEIN VERKLEBTES
2211 [153][166]1)"LEFT$AAR !"
2212 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: (null)STEN.":[137] 100
2220 [143] A=11
2222 [153][166]1)"STR$U STEHST VOR DEM (null)EMPEL VALINGANG, ES
2223 PRINTSPC(1)"IST EIN MAKEDONISCHER [211]AUELEN [212]EMPEL.
2224 [153][166]1)"STR$U ERINNERST DICH AN DEN GROSSEN (null)AKE=
2225 PRINTSPC(1)"DONISCHEN [200]ERRSCHER [193]LEXANDER DEN
2228 [153][166]1)"CHR$ROSSEN DER MIT SEINEM LEFT$EER BIS NACH
2230 PRINTSPC(1)"[201]NDIEN VORGESTOSSEN WAR.
2232 [153][166]1)"STR$U KANNST IN SUEDLICHE (null)ICHTUNG UND
2233 PRINTSPC(1)"OESTLICHE [210]ICHTUNG IN DEN [212]EMPEL GEHEN.
2235 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: ALLE.
2237 GOTO 100
2240 REM A=12
2241 PRINTSPC(1)"[196]U LAUEFST DIE [212]EMPELMAUER ENTLANG
2243 [153][166]1)"NACH (null)ORDEN. STR$A DIESE UNENDLICH ER=
2244 PRINTSPC(1)"SCHEINT DREHST DU DICH UM, UM ZURUECK
2245 [153][166]1)"ZU GEHEN.
2247 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN.":GOTO 100
2260 REM A=13
2261 PRINTSPC(1)"[196]U STEHST IM [212]EMPEL, DIESER IST AN DIE
2264 [153][166]1)"6 M HOCH UND 100 M LANG. STR$IE STR$ECKE IST
2265 PRINTSPC(1)"MIT [211]CHLACHTZENEN VON [193]LEXANDER DEM
2266 [153][166]1)"CHR$ROSSEN VERZIERT.
2267 PRINTSPC(1)"[197]IN SELTSAMER [196]UFT STEIGT DIR IN DIE
2268 [153][166]1)"(null)ASE,ER KOMMT AUS SUEDLICHER (null)ICHTUNG.
2270 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN,[215]ESTEN."
2272 GOTO 100
2280 REM A=14
2281 PRINTSPC(1)"[214]OR DIR SITZT AUF EINEM [211]TEIN DAS
2283 [153][166]1)"(null)RAKEL, ES HAT SCHWARZES KURZES LEFT$AAR,
2285 PRINTSPC(1)"DIESE IST MIT [211]CHAUMFESTIGER VER=
2286 [153][166]1)"STAERKT. (null)LEINE (null)HREN, HUEPSCHE (null)ASE,
2287 PRINTSPC(1)"UND IST ETWA 100 [202]AHRE ALT.
2288 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)ORDEN,(null)ESTEN.
2290 GOTO 100
2300 REM A=15
2302 PRINTSPC(1)"[196]U STEHST VOR EINEM [207]PFERALTAR, VON
2303 [153][166]1)"EINEM (null)PFER IST NICHTS ZU SEHEN !
2305 PRINTSPC(1)"[197]IN [199]ANG FUEHRT NACH [207]STEN, EIN ANDER=
2306 [153][166]1)"ER NACH (null)ORDEN.
2310 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [206]ORDEN,[207]STEN.":GOTO 100
2320 REM A=16/OLYMP
2322 PRINTSPC(1)"[196]U STEHST IM [204]ABYRINTH DES [207]LYMP, DAS
2323 [153][166]1)"REIMT SICH SOGAR ! (null)ND WAS SICH REIMT
2324 PRINTSPC(1)"IST GUT !
2325 [153][166]1)"STR$U FUEHLST DAS DAS ASCEUER HIER GANZ IN
2326 PRINTSPC(1)"DER [206]AEHE IST. [194]ESSER GESAGT DU BILD=
2327 [153][166]1)"EST ES DIR EIN.
2328 PRINTSPC(1)"[198]AENGT JA GUT AN DER LETZTE [208]ART !"
2330 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN,[207]STEN."
2332 GOTO 100
2340 REM A=17
2341 PRINTSPC(1)"[196]U SCHLENDERST SO DURCH DAS [204]ABYRITH
2342 [153][166]1)"WIE EINST (null)AC (null)AN. STR$ABEI HOERST DU
2344 PRINTSPC(1)"[215]ALKMANN '[215]HY [211]HOULD [201] CRY FOR YOU ?'.
2345 [153][166]1)"STR$AS WUERDE ICH JEDENFALLS HOEREN, ABER
2346 PRINTSPC(1)"DAS ZAEHLT JA NICHT ! [200]AST DU EIGENT=
2347 [153][166]1)"LICH GEMERKT DAS DER (null)EXT BEIM VORT=
2348 PRINTSPC(1)"SCHREITEN DES [193]DVENTURE IMMER MEHR GE=
2349 [153][166]1)"LABBER ENTHAELT ?"
2350 [153][166]1)"(null)OEGLICHE (null)CHTUNGEN: (null)ORDEN,(null)STEN.":[137] 100
2360 [143] A=18
2361 [139] LC[178]1 [167] 2370
2362 [153][166]1)"STR$U STEHST NUN VOR EINEM ALTEN (null)ANN, ER
2363 PRINTSPC(1)"STELLT SICH DIR ALS [206]EPTUN VOR, DEM
2364 [153][166]1)"CHR$OTT DES (null)EERES. STR$U EIN UEBERZEUGTER
2365 PRINTSPC(1)"[195]HRIST FAENGST GLEICH EIN [199]ESPRAECH
2366 [153][166]1)"UEBER DIE (null)IELGOETTEREI AN. VALR SAGT:
2367 PRINTSPC(1)"'[215]ENN DU MIR WAS GIBTS WAS ZU EINEM
2368 [153][166]1)"(null)EPTUN GEHOERT, GEBE ICH DIR ETWAS
2369 PRINTSPC(1)"WICHTIGES'":PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211],[215],[207].":GOTO100
2370 PRINTSPC(1)"[196]ER ALTE [205]ANN DER VOR EINIGEN [193]UGEN=
2371 [153][166]1)"BLICKE NOCH HIER GESESSEN HAT IST VER=
2372 PRINTSPC(1)"SCHWUNDEN. [193]USSER EINER [208]FUETZE MIT
2374 [153][166]1)"(null)ASSER IST NICHTS ZURUECK GEBLIEBEN."
2375 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null).":[137] 100
2380 [143] A=19
2381 [153][166]1)"(null)CHON NE TOLLE (null)ACHE SO EIN (null)ABYRINTH
2383 PRINTSPC(1)"DU UEBERLEGST OB DU SOWAS NICHT AUCH
2384 [153][166]1)"IM (null)ORGARTENS DEINES LEFT$AUSES BAUEN
2385 PRINTSPC(1)"SOLLTEST UM DEINE [199]LAUEBIGER ABZU=
2386 [153][166]1)"HALTEN."
2387 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UEDEN,(null)ESTEN.":[137] 100
2400 [143] A=20
2402 [153][166]1)"STR$U STEHST AUF EINER (null)REUZUNG, IM
2404 PRINTSPC(1)"[211]UEDEN SIEHST DU EINE [212]UER. [215]ER KENNT
2405 [153][166]1)"SICH AUS IN DIESEM LEFT$AUS ?
2406 PRINTSPC(1)"[215]IE IN DER ERSTEN [210]EIHE KOMMST DU DIR
2408 [153][166]1)"HIER ABER NICHT VOR.
2410 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: ALLE.
2412 [137] 100
2420 [143] A=21
2422 [153][166]1)"STR$U STEHST IMMER NOCH IM (null)ABYRINTH, DAS
2423 PRINTSPC(1)"NICHT ZU VERWECHSELN IST MIT [203]ORINTH.
2424 [153][166]1)"(null)IT DER LEFT$AND WISCHST DU DIR UEBER DIE
2425 PRINTSPC(1)"MIT [211]CHWEISSPERLEN UEBERZOGENE [211]TIRN.
2427 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)ORDEN,(null)ESTEN.":[137] 100
2440 [143] A=22
2441 [139] LD[178]1 [167] 2450
2442 [153][166]1)"STR$U STEHST VOR EINER (null)UER, AUF EINEM
2443 PRINTSPC(1)"[211]CHILD STEHT: '[212]AGUNGSRAUM DES INTER=
2444 [153][166]1)"NATIONALEN (null)LYMPISCHEN (null)OMITES'.
2445 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [206]ORDEN.":GOTO 100
2450 REM A=22/B
2452 PRINTSPC(1)"[196]U STEHST VOR EINER OFFENEN [212]UER, AUF
2453 [153][166]1)"EINEM (null)CHILD LIEST DU:'(null)AGUNGSRAUM DES
2454 PRINTSPC(1)"INTERNATIONALEN [207]LYMPISCHEN [203]OMITES'.
2455 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)ORDEN,(null)STEN.":[137] 100
2460 [143] A=23
2461 [153][166]1)"STR$U STEHST VOR EINER TAUSEND STUFFIGEN
2463 PRINTSPC(1)"[212]REPPE, AN IHREM [197]NDE SIEHST DU EIN
2464 [153][166]1)"(null)ICHT ! STR$IE (null)PANNUNG STEIGT ! STR$RUM
2465 PRINTSPC(1)"EINWENIG [215]ERBUNG: ' [201]CH HEISSE NICHT
2466 [153][166]1)"(null)UELLER, SPIELE ABER AM LIEBSTEN:
2467 PRINTSPC(1)"'[207]ST [201]NDIEN [195]OMPANY' VON [208]ETER [196]IEHM.":FORI=1TO7000:NEXT
2468 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [215]ESTEN,[200]OCH.":GOTO 100
2480 REM A=24
2481 PRINTSPC(1)"[196]U BIST AM [218]IEL DEINER [215]UENSCHE, VOR
2483 [153][166]1)"DIR LODERT DAS OLYMPISCHE ASCEUER, ZWAR
2485 PRINTSPC(1)"AUF [211]PARFLAMME ! [193]BER ES LODERT !
2487 [153][166]1)"(null)UN IST BILLIGER (null)AT TEUER !
2490 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: RUNTER.":GOTO 100
3000 PRINTSPC(1)"[196]U FRAGST: [154]'[197]Y BOH EY IST DAS ALLES
3002 [153][166]1)"ECHT ?'
3003 PRINTSPC(1)"[211]IE SAGT:[158]'[197]Y [205]AKER EY WILLST DU MICH
3005 [153][166]1)"ANBAGGERN ODER DAS ATNDVENTURE LOESEN.":[137] 100
3010 [153][166]1)"STR$U FRAGST:CONT'LEFT$EY ATNLTER WO GEHT ES DENN
3011 PRINTSPC(1)"HIER ZUM [193]USGANG ?'
3012 [153][166]1)"SYS'(null)EINE ATNHNUNG ! STR$EN (null)UCHE ICH SCHON
3013 PRINTSPC(1)"VIERZIG [202]AHRE !'":GOTO 100
3100 IF O$="DREIZACK" AND D=1 THEN 3110
3102 PRINTSPC(1)"[205]AN WAS BRAUCHT EIN [205]EERES [199]OTT WOHL ?
3103 [153][166]1)"VALINEN STR$RE..ACK ! (null)AS SONST ?
3105 PRINTSPC(1)"[201]CH HAB NICHTS GESAGT !
3108 [137] 100
3110 [153][166]1)"STR$U GIBST (null)EPTUN DEN STR$REIZACK, DIESER
3111 PRINTSPC(1)"NIMMT IHN AN SICH STUERZT SICH AUF
3112 [153][166]1)"DICH UND...":[129]I[178]1[164]4000:[130]
3113 [153][166]1)"(null)ND GIBT DIR EINEN (null)CHLUESSEL !":LC[178]1:[141]10:[137] 1000
3200 [139] LC[178]1 [167] 3210
3202 [153][166]1)"STR$U HAST KEINEN (null)CHLUESSEL !":[137] 100
3210 [153][166]1)"STR$U OEFFNEST DIE (null)UER !":LD[178]1:[141]10:[137]1000